home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / no blocks free (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  628b  |  16 lines
  1. 100 poke53280,6:print"[147] alle blocks der bam werden als belegt"
  2. 102 print" gekennzeichnet, d.h. 'no blocks free.'"
  3. 104 input" disk ready   j[157][157][157]";a$:ifa$<>"j"thenstop
  4. 105 print" bitte 1.5 min. warten....."
  5. 106 open1,8,15:open15,8,15,"i"
  6. 110 forsp=1to17:forse=0to20:print#1,"b-f:"0;sp;se:nextse:nextsp
  7. 120 forsp=18to24:forse=0to18:print#1,"b-f:"0;sp;se:nextse:nextsp
  8. 130 forsp=25to30:forse=0to17:print#1,"b-f:"0;sp;se:nextse:nextsp
  9. 140 forsp=31to35:forse=0to16:print#1,"b-f:"0;sp;se:nextse:nextsp:close1
  10. 206 open1,8,15
  11. 210 forsp=1to17:forse=0to20:print#1,"b-a:"0;sp;se:nextse:nextsp
  12. 220 forsp=18to24:forse=0to18:print#1,"b-a:"0;sp;se:nextse:nextsp
  13. 230 forsp=25to30:forse=0to17:print#1,"b-a:"0;sp;se:nextse:nextsp
  14. 240 forsp=31to35:forse=0to16:print#1,"b-a:"0;sp;se:nextse:nextsp:close1
  15. 250 close15:end
  16.